home *** CD-ROM | disk | FTP | other *** search
/ SuperView Productivity Suite 2 / SuperView Productivity Suite 2.iso / BONUS / Support / MetaView / MetaView.install < prev    next >
Encoding:
Text File  |  1998-08-23  |  17.1 KB  |  630 lines
  1. ;$VER: MetaView Install 2.5 (15.3.1998)
  2. ;Copyright ©1996/97/98 Henk Jonas
  3.  
  4. (set @app-name "MetaView V2.5")
  5. (set @sourcedir (pathonly @icon))
  6. (set #wbversion (getversion "libs:version.library"))
  7. (set #wbversion (/ #wbversion 65536))
  8.  
  9. (if (< #wbversion 37)
  10.   (abort "\n\nAmigaDOS 2.0 or better is needed for this software.")
  11. )
  12. (if (< #wbversion 40)
  13.   (
  14.     (set #language-bit
  15.       (askchoice
  16.         (prompt "Please chooce your favorite language for the installation")
  17.         (choices "English" "Deutsch" "Español" "Polski" "Ceská")
  18.         (default 0)
  19.         (help @askchoice-help)
  20.       )
  21.     )
  22.     (if (IN #language-bit 0)
  23.       (set #language-number 0)
  24.     )
  25.     (if (IN #language-bit 1)
  26.       (set #language-number 1)
  27.     )
  28.     (if (IN #language-bit 2)
  29.       (set #language-number 2)
  30.     )
  31.     (if (IN #language-bit 3)
  32.       (set #language-number 3)
  33.     )
  34.     (if (IN #language-bit 4)
  35.       (set #language-number 4)
  36.     )
  37.   )
  38.   (
  39.     (set #language (getenv "language"))
  40.     (set #language-number 0)
  41.     (if (= #language "deutsch")
  42.       (set #language-number 1)
  43.     )
  44.     (if (= #language "español")
  45.       (set #language-number 2)
  46.     )
  47.     (if (= #language "polski")
  48.       (set #language-number 3)
  49.     )
  50.     (if (= #language "ceská")
  51.       (set #language-number 4)
  52.     )
  53.   )
  54. )
  55.  
  56. (message "Henk Jonas\n"
  57.          "present:\n\n"
  58.          "MetaView\n\n"
  59.          "This programm shows and converts gfx-metafiles,\n"
  60.          "uses the amigametaformat.library\n"
  61.          "and is Shareware.")
  62. (set #user-level @user-level)
  63. (set #defaultdir "ram:")
  64. (if (= 1 (exists ("envarc:MetaView.path")))
  65.   (
  66.     (set #defaultdir (expandpath (tackon (pathonly (getenv "MetaView.path")) "/")))
  67.     (set @parentdir
  68.       (askdir
  69.         (prompt "I found the MetaView drawer,\n"
  70.                 "leave the path in the parent directory\n"
  71.                 "of the MetaView drawer for\n"
  72.                 "updating an existing MetaView installation.")
  73.         (help @askdir-help)
  74.         (default #defaultdir)
  75.       )
  76.     )
  77.   )
  78.   (
  79.     (user 2)
  80.     (set @parentdir
  81.       (askdir
  82.         (prompt "Please chooce the destination for MetaView.\n"
  83.                 "I will create a MetaView drawer there,\n"
  84.                 "if it does not exist.")
  85.         (help @askdir-help)
  86.         (default #defaultdir)
  87.       )
  88.     )
  89.     (user #user-level)
  90.   )
  91. )
  92.  
  93. (set @default-dest (tackon @parentdir "MetaView"))
  94.  
  95. (makedir @default-dest
  96.   (prompt "I am creating the drawer 'MetaView'.")
  97.   (help @makedir-help)
  98.   (infos)
  99. )
  100.  
  101. (complete 5)
  102.  
  103. (copylib 
  104.   (prompt "Now I will install the 'amigametaformat.library'.")
  105.   (source (tackon @sourcedir "libs/amigametaformat.library"))
  106.   (dest  "libs:")
  107.   (optional "nofail" "force" "askuser")
  108.   (help "This library are needed for this programm.\n"
  109.         "It is very importent to install this!")
  110. )
  111.  
  112. (complete 10)
  113.  
  114. (set #driver
  115.   (askoptions
  116.     (prompt "Now I will install the different Outputdrivers for the 'amigametaformat.library'.")
  117.     (choices "Strip" "AMF" "CGM" "EPS" "GEM" "WordWorth" "DR2D" "HPGL" "AI" "JMF" "WMF" "FIG")
  118.     (help "the options:\n"
  119.           "* Strip     : the driver for all renderings, like screen, ILBM, printer etc.\n"
  120.           "* AMF       : are for output as Amiga Metafile Format.\n"
  121.           "* CGM       : are for output as Computer Graphics Metafile.\n"
  122.           "* EPS       : are for output as Encapsulated PostScript.\n"
  123.           "* GEM       : are for output as GEM Metafile.\n"
  124.           "* WordWorth : create ARexx scripts, for use in WordWorth.\n"
  125.           "* DR2D      : are for output as DR2D (for PageStream, DrawStudio...)\n"
  126.           "* HPGL      : are for output as HPGL (for Plotters)\n"
  127.           "* AI        : are for output as AdobeIllustrator\n"
  128.           "* JMF       : are for output as JavaMetaFile (for www-publishing)\n"
  129.           "* WMF       : are for output as WindowsMetaFile\n"
  130.           "* FIG       : are for output as XFIG file\n")
  131.   )
  132. )
  133.  
  134. (complete 20)
  135.  
  136. (makedir "libs:AMF")
  137.  
  138. (if (IN #driver 0)
  139.   (copylib 
  140.     (prompt "Now I will install the stripdriver for 'amigametaformat.library'.")
  141.     (source (tackon @sourcedir "libs/AMF/amigametaformat-strip.driver"))
  142.     (dest  "libs:AMF/")
  143.     (optional "nofail" "force" "askuser")
  144.     (help "strip for all renderings on screen, printer and ILBM-output\n")
  145.   )
  146. )
  147.  
  148. (complete 21)
  149.  
  150. (if (IN #driver 1)
  151.   (copylib 
  152.     (prompt "Now I will install the filedriver for 'amigametaformat.library'.")
  153.     (source (tackon @sourcedir "libs/AMF/amigametaformat-file.driver"))
  154.     (dest  "libs:AMF/")
  155.     (optional "nofail" "force" "askuser")
  156.     (help "file for saving as Amiga Meta Format Metafile\n")
  157.   )
  158. )
  159.  
  160. (complete 22)
  161.  
  162. (if (IN #driver 2)
  163.   (copylib 
  164.     (prompt "Now I will install the CGMdriver for 'amigametaformat.library'.")
  165.     (source (tackon @sourcedir "libs/AMF/amigametaformat-cgm.driver"))
  166.     (dest  "libs:AMF/")
  167.     (optional "nofail" "force" "askuser")
  168.     (help "CGM for saving as Computer Graphics Metafile\n")
  169.   )
  170. )
  171.  
  172. (complete 23)
  173.  
  174. (if (IN #driver 3)
  175.   (copylib 
  176.     (prompt "Now I will install the EPSdriver for 'amigametaformat.library'.")
  177.     (source (tackon @sourcedir "libs/AMF/amigametaformat-eps.driver"))
  178.     (dest  "libs:AMF/")
  179.     (optional "nofail" "force" "askuser")
  180.     (help "EPS for saving as Encapsulated PostScript\n")
  181.   )
  182. )
  183.  
  184. (complete 24)
  185.  
  186. (if (IN #driver 4)
  187.   (copylib 
  188.     (prompt "Now I will install the GEMdriver for 'amigametaformat.library'.")
  189.     (source (tackon @sourcedir "libs/AMF/amigametaformat-gem.driver"))
  190.     (dest  "libs:AMF/")
  191.     (optional "nofail" "force" "askuser")
  192.     (help "GEM for saving as GEM Metafile\n")
  193.   )
  194. )
  195.  
  196. (complete 25)
  197.  
  198. (if (IN #driver 5)
  199.   (copylib 
  200.     (prompt "Now I will install the WordWorth-ARexx-driver for 'amigametaformat.library'.")
  201.     (source (tackon @sourcedir "libs/AMF/amigametaformat-ww.driver"))
  202.     (dest  "libs:AMF/")
  203.     (optional "nofail" "force" "askuser")
  204.     (help "WordWorth-ARexx-driver for creating WordWorth-ARexx-script\n")
  205.   )
  206. )
  207.  
  208. (complete 26)
  209.  
  210. (if (IN #driver 6)
  211.   (copylib 
  212.     (prompt "Now I will install the DR2D-driver for 'amigametaformat.library'.")
  213.     (source (tackon @sourcedir "libs/AMF/amigametaformat-dr2d.driver"))
  214.     (dest  "libs:AMF/")
  215.     (optional "nofail" "force" "askuser")
  216.     (help "DR2D-driver for creating DR2D-Output\n")
  217.   )
  218. )
  219.  
  220. (complete 27)
  221.  
  222. (if (IN #driver 7)
  223.   (copylib 
  224.     (prompt "Now I will install the HPGL-driver for 'amigametaformat.library'.")
  225.     (source (tackon @sourcedir "libs/AMF/amigametaformat-hpgl.driver"))
  226.     (dest  "libs:AMF/")
  227.     (optional "nofail" "force" "askuser")
  228.     (help "HPGL-driver for creating HPGL-Output\n")
  229.   )
  230. )
  231.  
  232. (complete 28)
  233.  
  234. (if (IN #driver 8)
  235.   (copylib 
  236.     (prompt "Now I will install the AI-driver for 'amigametaformat.library'.")
  237.     (source (tackon @sourcedir "libs/AMF/amigametaformat-ai.driver"))
  238.     (dest  "libs:AMF/")
  239.     (optional "nofail" "force" "askuser")
  240.     (help "AI-driver for creating AI-Output\n")
  241.   )
  242. )
  243.  
  244. (complete 29)
  245.  
  246. (if (IN #driver 9)
  247.   (copylib 
  248.     (prompt "Now I will install the JMF-driver for 'amigametaformat.library'.")
  249.     (source (tackon @sourcedir "libs/AMF/amigametaformat-jmf.driver"))
  250.     (dest  "libs:AMF/")
  251.     (optional "nofail" "force" "askuser")
  252.     (help "JMF-driver for creating JMF-Output\n")
  253.   )
  254. )
  255.  
  256. (complete 30)
  257.  
  258. (if (IN #driver 10)
  259.   (copylib 
  260.     (prompt "Now I will install the WMF-driver for 'amigametaformat.library'.")
  261.     (source (tackon @sourcedir "libs/AMF/amigametaformat-wmf.driver"))
  262.     (dest  "libs:AMF/")
  263.     (optional "nofail" "force" "askuser")
  264.     (help "WMF-driver for creating WMF-Output\n")
  265.   )
  266. )
  267.  
  268. (complete 31)
  269.  
  270. (if (IN #driver 11)
  271.   (copylib 
  272.     (prompt "Now I will install the FIG-driver for 'amigametaformat.library'.")
  273.     (source (tackon @sourcedir "libs/AMF/amigametaformat-xfig.driver"))
  274.     (dest  "libs:AMF/")
  275.     (optional "nofail" "force" "askuser")
  276.     (help "FIG-driver for creating FIG-Output\n")
  277.   )
  278. )
  279.  
  280. (complete 40)
  281.  
  282. (copyfiles
  283.   (prompt "copy programm")
  284.   (source (tackon @sourcedir "MetaView"))
  285.   (dest @default-dest)
  286.   (infos)
  287.   (help "Now, I will copy the programm.")
  288. )
  289.  
  290. (complete 50)
  291.  
  292. (copyfiles
  293.   (prompt "copy MetaView.doc")
  294.   (source (tackon @sourcedir "MetaView.doc"))
  295.   (dest @default-dest)
  296.   (infos)
  297.   (help "Now, I will copy the MetaView.doc.")
  298. )
  299.  
  300. (complete 60)
  301.  
  302. (user 2)
  303. (set #language
  304.   (askoptions
  305.     (prompt "Now I will copy the guide for MetaView.\n"
  306.             "What is your favorite language?")
  307.     (choices "English" "Deutsch" "Español" "Polski" "Ceská")
  308.     (default #language-number)
  309.     (help @askoptions-help)
  310.   )
  311. )
  312. (user #user-level)
  313.  
  314. (complete 61)
  315.  
  316. (if (IN #language 0)
  317.   (copyfiles
  318.     (prompt "copy English MetaView.guide")
  319.     (source (tackon @sourcedir "MetaView.guide"))
  320.     (dest @default-dest)
  321.     (infos)
  322.     (help "Now, I will copy the English MetaView.guide.")
  323.   )
  324. )
  325.  
  326. (complete 62)
  327.  
  328. (if (IN #language 1)
  329.   (copyfiles
  330.     (prompt "copy German MetaView.guide")
  331.     (source (tackon @sourcedir "translations/MetaView_deutsch.guide"))
  332.     (dest @default-dest)
  333.     (infos)
  334.     (help "Now, I will copy the German MetaView.guide.")
  335.   )
  336. )
  337.  
  338. (complete 63)
  339.  
  340. (if (IN #language 2)
  341.   (copyfiles
  342.     (prompt "copy Spanish MetaView.guide")
  343.     (source (tackon @sourcedir "translations/MetaView_espanol.guide"))
  344.     (dest @default-dest)
  345.     (infos)
  346.     (help "Now, I will copy the Spanish MetaView.guide.")
  347.   )
  348. )
  349.  
  350. (complete 64)
  351.  
  352. (if (IN #language 3)
  353.   (copyfiles
  354.     (prompt "copy Polish MetaView.guide")
  355.     (source (tackon @sourcedir "translations/MetaView_polski.guide"))
  356.     (dest @default-dest)
  357.     (infos)
  358.     (help "Now, I will copy the Polish MetaView.guide.")
  359.   )
  360. )
  361.  
  362. (complete 65)
  363.  
  364. (if (IN #language 4)
  365.   (copyfiles
  366.     (prompt "copy Czech MetaView.guide")
  367.     (source (tackon @sourcedir "translations/MetaView_ceska.guide"))
  368.     (dest @default-dest)
  369.     (infos)
  370.     (help "Now, I will copy the Czech MetaView.guide.")
  371.   )
  372. )
  373.  
  374. (complete 70)
  375.  
  376. (copyfiles
  377.   (prompt "copy amigametaformat.readme")
  378.   (source (tackon @sourcedir "libs/amigametaformat.readme"))
  379.   (dest @default-dest)
  380.   (infos)
  381.   (help "Now, I will copy the amigametaformat.readme.")
  382. )
  383.  
  384. (complete 80)
  385.  
  386. (copyfiles
  387.   (prompt "copy ARexx-Examples")
  388.   (source (tackon @sourcedir "ARexx-Examples"))
  389.   (dest (tackon @default-dest "ARexx-Examples"))
  390.   (files)
  391.   (all)
  392.   (infos)
  393.   (help "Now, I will copy some ARexx-Examples.")
  394. )
  395.  
  396. (user 2)
  397. (if (= 1 (askbool
  398.             (prompt "Do you have DrawStudio installed,\n"
  399.                     "and want to im- and export gfx\n"
  400.                     "with MetaView?")
  401.             (choices "Yes" "No")
  402.             (help "I want to install two ARexx scripts for import and export\n"
  403.                   "graphics in DrawStudio with MetaView")
  404.          )
  405.     )
  406.     (
  407.        (set #dspath
  408.           (askdir
  409.             (prompt "Please choose the DrawStudio ARexx scripts drawer.")
  410.             (help "I want toinstall two ARexx scripts for import and export\n"
  411.                   "graphics in DrawStudio with MetaView")
  412.             (default "Rexx:")
  413.             (disk)
  414.           )
  415.        )
  416.        (copyfiles
  417.          (prompt "copying DrawStudio import script")
  418.          (source (tackon @sourcedir "ARexx-Examples/DrawStudio_Import.dsrx"))
  419.          (dest #dspath)
  420.        )
  421.        (copyfiles
  422.          (prompt "copying DrawStudio export script")
  423.          (source (tackon @sourcedir "ARexx-Examples/DrawStudio_Export.dsrx"))
  424.          (dest #dspath)
  425.        )
  426.     )
  427. )
  428.  
  429. (if (= 1 (askbool
  430.             (prompt "Do you have PageStream 3.x installed,\n"
  431.                     "and want to import gfx with MetaView?")
  432.             (choices "Yes" "No")
  433.             (help "I want to install one ARexx script for import\n"
  434.                   "graphics in PageStream with MetaView")
  435.          )
  436.     )
  437.     (
  438.        (set #pspath
  439.           (askdir
  440.             (prompt "Please choose the PageStream ARexx scripts drawer.")
  441.             (help "I want to install one ARexx script for import\n"
  442.                   "graphics in PageStream with MetaView")
  443.             (default "Rexx:")
  444.             (disk)
  445.           )
  446.        )
  447.        (copyfiles
  448.          (prompt "copying PageStream import script")
  449.          (source (tackon @sourcedir "ARexx-Examples/PageStream_Import.rexx"))
  450.          (dest #pspath)
  451.        )
  452.     )
  453. )
  454.  
  455. (if (= 1 (askbool
  456.             (prompt "Do you have WordWorth installed,\n"
  457.                     "and want to import gfx with MetaView?")
  458.             (choices "Yes" "No")
  459.             (help "I want to install one ARexx script for import\n"
  460.                   "graphics in WordWorth with MetaView")
  461.          )
  462.     )
  463.     (
  464.        (set #wwpath
  465.           (askdir
  466.             (prompt "Please choose the WordWorth ARexx scripts drawer.")
  467.             (help "I want to install one ARexx script for import\n"
  468.                   "graphics in WordWorth with MetaView")
  469.             (default "Rexx:")
  470.             (disk)
  471.           )
  472.        )
  473.        (copyfiles
  474.          (prompt "copying WordWorth import script")
  475.          (source (tackon @sourcedir "ARexx-Examples/WordWorth_Import_gfx.rexx"))
  476.          (dest #wwpath)
  477.        )
  478.     )
  479. )
  480.  
  481. (if (= 1 (askbool
  482.             (prompt "Do you have FinalWriter installed,\n"
  483.                     "and want to import gfx with MetaView?")
  484.             (choices "Yes" "No")
  485.             (help "I want to install one ARexx script for import\n"
  486.                   "graphics in FinalWriter with MetaView")
  487.          )
  488.     )
  489.     (
  490.        (set #fwpath
  491.           (askdir
  492.             (prompt "Please choose the FinalWriter ARexx scripts drawer.")
  493.             (help "I want to install one ARexx script for import\n"
  494.                   "graphics in FinalWriter with MetaView")
  495.             (default "Rexx:")
  496.             (disk)
  497.           )
  498.        )
  499.        (copyfiles
  500.          (prompt "copying FinalWriter import script")
  501.          (source (tackon @sourcedir "ARexx-Examples/FinalWriter_Import.rexx"))
  502.          (dest #fwpath)
  503.        )
  504.     )
  505. )
  506. (user #user-level)
  507.  
  508.  
  509. (if (= 1 (askbool
  510.             (prompt "Should I copy the example files?")
  511.             (choices "Copy" "Skip")
  512.             (help @askbool-help)
  513.             (default 1)
  514.          )
  515.     )
  516.     (copyfiles
  517.       (prompt "copy Examples")
  518.       (source (tackon @sourcedir "Examples"))
  519.       (dest (tackon @default-dest "Examples"))
  520.       (files)
  521.       (all)
  522.       (infos)
  523.       (help "Now, I want to copy some Examples.")
  524.     )
  525. )
  526.  
  527. (complete 85)
  528.  
  529. (set #osvernum (getversion))
  530. (set #osver (/ #osvernum 65536))
  531. (set #osrev (- #osvernum (* #osver 65536) ) )
  532. (set #oldpatchvernum (getversion "c:SetPatch"))
  533. (set #newpatchvernum (getversion (tackon @sourcedir "SetPatch43_6/SetPatch")))
  534.  
  535. (if (AND (> #osver 39) (< #oldpatchvernum #newpatchvernum))
  536.   (if (= 1 (askbool
  537.               (prompt "I want to copy a new SetPatch (43.6) to your 'c:' directory.\n"
  538.                       "This Software are published from Amiga Technologie and\n"
  539.                       "fix also a bug on 'mathieeesingbas.library' in Kick 3.1.\n"
  540.                       "The old 'c:SetPatch' will renamed to 'c:SetPatch.old'.")
  541.               (choices "Copy" "Skip")
  542.               (help "Press 'Copy' to install the new SetPatch and 'Skip' for not install.\n"
  543.                     "You are advised to install this Patch.\n"
  544.                     "But if you get a GURU on MetaView-startup you must!")
  545.               (default 1)
  546.            )
  547.       )
  548.       (
  549.         (rename "c:SetPatch" "c:SetPatch.old")
  550.         (copylib
  551.           (prompt "copy new SetPatch")
  552.           (source (tackon @sourcedir "SetPatch43_6/SetPatch"))
  553.           (dest  "c:")
  554.           (optional "nofail" "force" "askuser")
  555.           (help @copylib-help)
  556.         )
  557.       )
  558.   )
  559. )
  560.  
  561. (if (> #osver 38)
  562.   (copylib
  563.      (prompt "copy tabs.gadget")
  564.      (source (tackon @sourcedir "libs/gadgets/tabs.gadget"))
  565.      (dest  "libs:gadgets/")
  566.      (optional "nofail" "force" "askuser")
  567.      (help @copylib-help)
  568.   )
  569. )
  570.  
  571. (complete 90)
  572.  
  573. (if (= 1 (exists ("envarc:MetaView.path")))
  574.   (if (= 1 (askbool
  575.               (prompt "Should I update the MetaView.path environment variable?")
  576.               (choices "Update" "Skip")
  577.               (help "The ARexxScripts and the MetaView.datatype will use the variable for locate the executable.")
  578.               (default 1)
  579.            )
  580.       )
  581.     (
  582.       (textfile
  583.         (prompt "Create ENVARC: variable with path of MetaView")
  584.         (dest "envarc:MetaView.path")
  585.         (append (tackon @default-dest "Metaview"))
  586.         (help "The ARexxScripts and the Metaview.datatype will use the variable for locate the executable.")
  587.       )
  588.       (textfile
  589.         (prompt "Create ENV: variable with path of MetaView")
  590.         (dest "env:MetaView.path")
  591.         (append (tackon @default-dest "Metaview"))
  592.         (help "The ARexxScripts and the Metaview.datatype will use the variable for locate the executable.")
  593.       )
  594.     )
  595.   )
  596. )
  597.  
  598. (complete 95)
  599.  
  600. (user 2)
  601. (if (= 1 (exists (tackon @sourcedir "keyfile.metaview")))
  602.     (copyfiles
  603.       (prompt "copy keyfile")
  604.       (source (tackon @sourcedir "keyfile.metaview"))
  605.       (dest @default-dest)
  606.       (infos)
  607.       (help "Now I copy the keyfile.")
  608.     )
  609. )
  610. (if (= 0 (exists (tackon @default-dest "keyfile.metaview")))
  611.     (message
  612.        "Don`t forget to register!\n\n"
  613.        "Please send $20 or 30,- DM to me:\n\n"
  614.        "Henk Jonas\n"
  615.        "Zionskirchstr. 28\n"
  616.        "10119 Berlin\n"
  617.        "Germany"
  618.        (help "Look at MetaView.readme, MetaView.doc "
  619.              "or MetaView.guide for register")
  620.     )
  621. )
  622. (if (= 1 (exists (tackon @default-dest "keyfile.metaview")))
  623.     (message
  624.       "Thank you for registering MetaView!"
  625.     )
  626. )
  627.  
  628. (complete 100)
  629.  
  630.